home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / bix02.arc / FASTARC.INC < prev    next >
Encoding:
Text File  |  1986-08-04  |  615 b   |  27 lines
  1. {GENERATED INCLUDE FILE *FASTARC.INC*}
  2. Type gdata=record x1,x2:integer end;
  3. Const sdata=-10; edata=10;
  4.       data:array[sdata..edata] of gdata =
  5.     (
  6.      (x1:-7;x2:7),
  7.      (x1:-12;x2:12),
  8.      (x1:-15;x2:15),
  9.      (x1:-17;x2:17),
  10.      (x1:-19;x2:19),
  11.      (x1:-20;x2:20),
  12.      (x1:-21;x2:21),
  13.      (x1:-22;x2:22),
  14.      (x1:-22;x2:22),
  15.      (x1:-23;x2:23),
  16.      (x1:-23;x2:23),
  17.      (x1:-23;x2:23),
  18.      (x1:-22;x2:22),
  19.      (x1:-22;x2:22),
  20.      (x1:-21;x2:21),
  21.      (x1:-20;x2:20),
  22.      (x1:-19;x2:19),
  23.      (x1:-17;x2:17),
  24.      (x1:-15;x2:15),
  25.      (x1:-12;x2:12),
  26.      (x1:-7;x2:7));
  27.